home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Graphics / PerfectPaint / rexx / Anim / InvAnim.rx < prev    next >
Encoding:
Text File  |  2001-04-25  |  680 b   |  60 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     pp_GetDepth
  10.     D=result
  11.     pp_GetWidth
  12.     W=result
  13.     pp_GetHeight
  14.     H=result
  15.  
  16.     pp_CountFrames
  17.     count=result
  18.     IF count<2 then DO
  19.         pp_Warn 'Make*an*Anim*first.'
  20.         EXIT
  21.     END
  22.  
  23.     pp_GetCurrentBrush
  24.     B0=result
  25.  
  26.     pp_FindEmptyBrush
  27.     Brush=result
  28.     if Brush=-1 then DO
  29.         pp_Warn "can't*find*empty|Brush."
  30.         EXIT        
  31.     END
  32.     pp_SetBrush Brush    
  33.  
  34.     pp_EffectOff
  35.  
  36.         j=count
  37.         HC=trunc((count/2),0)
  38.         DO i=1 to HC
  39.             pp_GotoFrame i
  40.             pp_pickbrush 0 0 w h
  41.             pp_GotoFrame j
  42.             pp_PicttoSpare
  43.             pp_Plot w/2 h/2
  44.             pp_GotoFrame i
  45.             pp_SparetoPict
  46.             j=j-1        
  47.         END
  48.  
  49.     pp_GotoFrame 1
  50.  
  51.     pp_FreeBrush
  52.     pp_SetBrush B0
  53.     
  54.     EXIT
  55.     
  56.  
  57.  
  58.     
  59.  
  60.